VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsContact"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"

Private mvarEmail As String
Private mvarFriendlyName As String
Private mvarStatus As String
Private mvarGroup As String
Public ListIndex As Integer
Private mvarDisplayPicture As StdPicture
Private mvarStatusText As String


Public Property Let StatusText(ByVal vData As String)
    mvarStatusText = vData
End Property


Public Property Get StatusText() As String
    StatusText = mvarStatusText
End Property


Public Property Set DisplayPicture(ByVal vData As StdPicture)
    Set mvarDisplayPicture = vData
End Property


Public Property Get DisplayPicture() As StdPicture
    Set DisplayPicture = mvarDisplayPicture
End Property


Public Property Let Group(ByVal vData As String)
    mvarGroup = vData
End Property


Public Property Get Group() As String
    Group = mvarGroup
End Property


Public Property Let Status(ByVal vData As String)
    mvarStatus = vData
End Property


Public Property Get Status() As String
    Status = mvarStatus
End Property


Public Property Let FriendlyName(ByVal vData As String)
Attribute FriendlyName.VB_Description = "Contact's Display Name"
    mvarFriendlyName = vData
End Property


Public Property Get FriendlyName() As String
    FriendlyName = mvarFriendlyName
End Property


Public Property Let Email(ByVal vData As String)
Attribute Email.VB_Description = "Contact's Email Address"
    mvarEmail = vData
End Property


Public Property Get Email() As String
    Email = mvarEmail
End Property
